home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
edit
/
me_cd25.zip
/
BOBSMUTT.ZIP
/
MSDOSCMD.MUT
< prev
next >
Wrap
Text File
|
1992-05-16
|
708b
|
43 lines
;; $Source: c:/lib/mutt/RCS/msdoscmd.mut $
;; $Revision: 1.1 $
;; $Date: 1992/05/16 08:02:18 $
;; Bob Stocker Public Domain
(include me2.h)
(defun
msdos-command
{ ;; BEGIN msdos-command
(const DOSbuf '*MS-DOS-output*')
(string cmd)
(int bufid)
(cmd (ask "MS-DOS command: "))
(bufid (attached-buffer DOSbuf))
(if
(== bufid -2)
(bufid
(create-buffer
DOSbuf
(bit-or
BFNoCare
BFImmortal
)
)
)
)
(current-buffer bufid)
(end-of-buffer)
(use-existing-buffer DOSbuf)
(insert-text '-> ' cmd)
(newline)
(OS-filter
cmd
-1
-1
TRUE
)
(update)
} ;; END msdos-command
)